Nuprl Lemma : rel_plus_monotone
11,40
postcript
pdf
T
:Type,
R1
,
R2
:(
T
T
prop{i:l}).
rel_implies(
T
;
R1
;
R2
)
rel_implies(
T
; rel_plus(
T
;
R1
); rel_plus(
T
;
R2
))
latex
Definitions
x
:
A
.
B
(
x
)
,
prop{i:l}
,
P
Q
,
rel_implies(
T
;
R1
;
R2
)
,
rel_plus(
T
;
R
)
,
x
f
y
,
x
:
A
.
B
(
x
)
,
t
T
,
subtype(
S
;
T
)
Lemmas
rel
exp
wf
,
nat
plus
inc
,
nat
plus
wf
,
rel
exp
monotone
origin
T:Type, R1,R2:(T
Tprop{i:l}).
rel_implies(T; rel_plus(T; R1); rel_plus(T; R2)) T:Type, R1,R2:(TTprop{i:l}).
rel_implies(T; rel_plus(T; R1); rel_plus(T; R2)) x:A. B(x) Q
x:A. B(x)
T